<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>28</cardCount>
<cardID>4652</cardID>
<listID>10554</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStack---- This script will ensure that the config setup happens-- even if SOD is started by directly entering this stack--global soundOn, noGoif soundOn is empty thenlock screenpush this card-- Just going to this card sets it up via it's openCard handlerput true into noGogo card "Dead Config" of stack "Dead Utility"if soundOn is empty thensetDeadDefaultsend ifpop cardend ifhide messageend openStackon setDeadDefaultsglobal soundOnglobal soundStackglobal deadDirglobal defFileCreator--put false into soundOnput "Dead Utility" into soundStackput empty into deadDirput "MACA" into defFileCreatorend setDeadDefaultson hideCurrentput field "Current List" into Currentif Current is not empty thenhide field (Current & " List" )hide field (Current & " Title" )set the hilite of bg button (Current & " List") to falseend ifend hideCurrenton makeCurrent theNamehideCurrentif theName is not empty thenput theName into field "Current List"show field (theName & " List" )show field (theName & " Title" )set the hilite of the target to trueend ifend makeCurrenton showBusyglobal bearNumadd 1 to bearNumif bearNum = 9 then put 1 into bearNumset cursor to "Bear" & bearNumend showBusy-- NOTE: If you want to put the sounds somewhere else, then change-- the name of the stack here for all buttons in this stackon playDead songglobal soundStackpush this cardlock screenif soundStack is empty thenfindSoundStackend ifgo stack soundStackif the result is empty thenplayDeadSong songend ifpop cardend playDeadon playRandomDeadglobal soundStackpush this cardlock screenif soundStack is empty thenfindSoundStackend ifgo stack soundStackif the result is empty thenplayRandomDeadSongend ifpop cardend playRandomDead-- This handler manages help text for buttons and fields-- by taking the text from comments at the end of the scripts--on doHelpset the cursor to watchlock screenput "Help for " & the name of the target & "..." & return & return¬into field "help text"put the script of the target into theScript--repeat with i = 1 to the number of lines of theScript-- showBusyput line i of theScript into oneLineif oneLine is empty then next repeatif char 1 of oneLine is not "-" then exit repeatdelete char 1 to 2 of oneLineput oneLine & return after field "help text"end repeatshow field "help text"unlock screen with visual effect dissolve fastend doHelp</script>
